home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / clarion / 3rdparty / tools / toolcrft / tcbrowse.clw < prev    next >
Encoding:
Text File  |  1995-10-23  |  6.7 KB  |  128 lines
  1. !-------------------------------------------------------------------!
  2. !                                                                   !
  3. ! Copyright 1994 by ToolCraft Development Corporation               !
  4. !                                                                   !
  5. !                 ALL RIGHTS RESERVED                               !
  6. !-------------------------------------------------------------------!
  7.  
  8.  
  9.   SECTION('BrowseLibrary')
  10. !-------------------  PowerBrowse Library MAP Additions -------------
  11.   MODULE('ToolCraft Browse Library')
  12.     TC_Browse(SHORT,*FILE,*GROUP,*KEY,*QUEUE,*STRING,<*?>,<?>,<?>,<BYTE>,<*?>,<?>,<*?>,<?>,<*?>,<?>)
  13.     TC_InitBrowse(SHORT,USHORT,<BYTE>),BYTE
  14.     TC_PROP:BRW(SHORT,BYTE,<BYTE>),SHORT,PROC
  15.     TC_ResizeWin(LONG,LONG,LONG,<LONG>)
  16.     TC_InLine(LONG,*LONG[],STRING)
  17.     TC_AutoFill(*FILE,*GROUP,*KEY,*?,*?,BYTE,<*?>,<?>,<?>,<*?>,<?>,<*?>,<?>,<*?>,<?>),BYTE,PROC
  18.   END
  19. !--------------------------------------------------------------------
  20.  
  21.   SECTION('BrowseGlobals')
  22. !-------------------  PowerBrowse Global Declarations ---------------
  23. TCEVENT:InsertBatch       EQUATE(401H)      !Add a batch of records
  24. TCEVENT:InsertRecord      EQUATE(402H)      !Add a record
  25. TCEVENT:ChangeRecord      EQUATE(403H)      !Change a record
  26. TCEVENT:DeleteRecord      EQUATE(404H)      !Delete a record
  27. TCEVENT:SamePage          EQUATE(405H)      !Load and display same page
  28. TCEVENT:SetToKey          EQUATE(406H)      !Set by key and redisplay
  29. TCEVENT:SetToItem         EQUATE(407H)      !Set by current item and redisplay at top of list
  30. TCEVENT:SetKeyPosition    EQUATE(408H)      !Set by current key position and keep record on same line
  31. TCEVENT:SetQueuePosition  EQUATE(409H)      !Set by current queue position and keep record on same line
  32. TCEVENT:AcceptSelection   EQUATE(410H)      !Accept Drop Down Combo Selection
  33. TCEVENT:RejectSelection   EQUATE(411H)      !Reject Drop Combo Selection
  34.  
  35. TCACTION:Refresh          EQUATE(0)         !Refresh List Box
  36. TCACTION:FillQueue        EQUATE(1)         !Fill queue for list
  37. TCACTION:InsertBatch      EQUATE(2)         !Insert a batch of new records
  38. TCACTION:InsertRecord     EQUATE(3)         !Insert a new record
  39. TCACTION:ChangeRecord     EQUATE(4)         !Change the current record
  40. TCACTION:DeleteRecord     EQUATE(5)         !Delete the current record
  41. TCACTION:SelectRecord     EQUATE(6)         !Select the current record
  42. TCACTION:DragThumb        EQUATE(7)         !Process Drag on Vertical Scroll Bar Thumb
  43. TCACTION:SetThumb         EQUATE(8)         !Process Set Thumb Position
  44. TCACTION:DisplayFields    EQUATE(9)         !Display Related Fields
  45. TCACTION:NoRecords        EQUATE(10)        !No Records to Display
  46. TCACTION:FirstRecord      EQUATE(11)        !On Inserting of First Record
  47. TCACTION:ExitBrowse       EQUATE(12)        !Exit the browse routine
  48.  
  49. TCPROP:Action             EQUATE(1)         !Browse Action to Process
  50. TCPROP:CurRow             EQUATE(2)         !Current Row Being Filled
  51. TCPROP:CurItem            EQUATE(3)         !Current List Box Item Choice
  52. TCPROP:DescendingKey      EQUATE(4)         !Descending Key Flag
  53. TCPROP:DontSelect         EQUATE(5)         !Don't Select List on Refresh Flag
  54. TCPROP:DroppedDown        EQUATE(6)         !PB Drop Combo List is Dropped Flag
  55. TCPROP:EndBatch           EQUATE(7)         !End Batch Entry Flag
  56. TCPROP:ExtVScroll         EQUATE(8)         !Use Extended Vertical Scroll Checking
  57. TCPROP:ForceVScroll       EQUATE(9)         !Force Vertical Scroll to be Displayed
  58. TCPROP:Initialized        EQUATE(10)        !Browse Initialized Flag
  59. TCPROP:InsertMode         EQUATE(11)        !Insert Moe Flag
  60. TCPROP:RevOrder           EQUATE(12)        !Process in Reverse Key Order Flag
  61. TCPROP:Rows               EQUATE(13)        !Number of Rows in List Box
  62. TCPROP:SetToItem          EQUATE(14)        !Set Refresh To Begin with Item
  63. TCPROP:SetToKey           EQUATE(15)        !Set Refresh to Begin with Key
  64. TCPROP:SetToPosition      EQUATE(16)        !Set Refresh to Begin at Position
  65. TCPROP:SelectRecord       EQUATE(17)        !Double Click Selects Record Flag
  66. TCPROP:SkipRecord         EQUATE(18)        !Skip Filling Record in Queue Flag
  67. TCPROP:ThumbOption        EQUATE(19)        !Thumb Option Setting
  68. TCPROP:UseView            EQUATE(20)        !Use a View Structure Flag
  69. TCPROP:WatchOff           EQUATE(21)        !Disable Automatic File Concurency Checking
  70.  
  71. TC:BRW:ActiveList         USHORT            !Field # of Currently Active List Box
  72. TC:BRW:ActiveThread       USHORT            !Thread# of Currently Active List Box
  73. TC:BRW:ActiveWindow       UNSIGNED          !Handle of Currently Active Window
  74. TC:BRW:BeepSound          LONG(1)           !Beep Value to for BOF/EOF Condition
  75. TC:BRW:DeletedLast        BYTE              !Last Record in Browse Deleted Flag
  76. TC:BRW:ExtVScrollDef      BYTE(1)           !Use Extended VScroll Bar Conditions
  77. TC:BRW:ForceVScrollDef    BYTE(0)           !Force VScroll Bar to Always Display
  78. TC:BRW:SoundOff           BYTE              !Turn Sound Off for BOF/EOF Flag
  79. TC:BRW:ProcessMarked      BYTE              !Process Marked Records Flag
  80. TC:BRW:MarkAllFlag        BYTE              !All Records Marked Flag
  81. TC:BRW:MarkQueue          &QUEUE            !Name of Mark Records Queue
  82.  
  83.  
  84. !-----------------  AutoFill Global Declarations -------------------
  85. TC:AUT:SkipRecord         BYTE              !Skip Record and Search to Next
  86.  
  87. !-----------------  ResizeWin Global Declarations -------------------
  88. TC:RSZ:SetTabWidth        BYTE
  89. TC:RSZ:SetTabHeight       BYTE
  90. TC:RSZ:TabControl         BYTE
  91. TC:RSZ:TabControl2        BYTE
  92.  
  93. !-------------------  InLine Global Declarations --------------------
  94. TCACTION:ExitInLine       EQUATE(0)
  95. TCACTION:SetFields        EQUATE(1)
  96. TCACTION:SetHotKeys       EQUATE(2)
  97. TCACTION:FieldEdits       EQUATE(3)
  98. TCACTION:UpdateRecord     EQUATE(4)
  99. TCACTION:AbortUpdate      EQUATE(5)
  100.  
  101. TC:INL:Action             BYTE
  102. TC:INL:AbortButton        BYTE
  103. TC:INL:AbortKey           LONG
  104. TC:INL:AbortUpdate        BYTE
  105. TC:INL:CloseWindow        BYTE
  106. TC:INL:Column             BYTE
  107. TC:INL:CurItem            BYTE
  108. TC:INL:EditNextKey1       LONG
  109. TC:INL:EditNextKey2       LONG
  110. TC:INL:EditPrevKey1       LONG
  111. TC:INL:EditPrevKey2       LONG
  112. TC:INL:Field              LONG
  113. TC:INL:FirstField         BYTE
  114. TC:INL:HotKey1            LONG
  115. TC:INL:HotKey2            LONG
  116. TC:INL:HotKey3            LONG
  117. TC:INL:HotKey4            LONG
  118. TC:INL:HotKey5            LONG
  119. TC:INL:PostField          BYTE
  120. TC:INL:PostEvent          BYTE
  121. TC:INL:ResizeWindow       BYTE
  122. TC:INL:SaveButton         BYTE
  123. TC:INL:SaveKey            LONG
  124. TC:INL:SelectField        BYTE
  125. TC:INL:UpdateAction       BYTE
  126. TC:INL:UpdateMode         BYTE
  127. !--------------------------------------------------------------------
  128.